<% Option Explicit %>
<!--#include virtual="/library/_dbTools.asp" -->
<script type="text/javascript" language="javascript" runat="server" src="/ajax/lang/extensions.js"></script>
<script type="text/javascript" language="javascript" runat="server" src="/ajax/net/ContentLoader.js"></script>

<%
ajax.path = Server.MapPath("/ajax")
Dim data: data = Request("Data") : If data = "" Then data = "{}" ' Ensure Data Object is valid
Dim obj : Set obj = ajax.lang.safeNew("ajax.data.Service", Nothing, getConnectionProperty("ssDevBAPS"), "Baps_Reports..tbl_PCardProfiles", "PCardProfileID", Request("Method"))
Set obj.data = ajax.lang.toJsonObject(data)
obj.sqlSelect       = "Select * from " & obj.tableName
obj.sqlSelectOrder  =  obj.primaryKeyName & " ASC" ' We specify the cols to select
obj.ignoreUpdateColumns.push("CardNumberX") ' Calculated Column
Response.Write ajax.lang.safeCall("ajax.data.Serialization", "xmlMessage", obj.method, obj.execute()) ' Service need not rely on Serialization
obj.dispose() : Set obj = Nothing              
%>